50 REM******THE TOPIC SENTENCE******
52 REM******************************
54 REM************BY****************
56 REM******************************
58 REM*********DANIEL FLINN*********
60 REM******************************
62 REM**UNIVERSITY OF EAST AFRICA***
64 REM******************************
66 REM***P.O. BOX 2500**************
68 REM******************************
70 REM*******ELDORET,KENYA**********
95 RESTORE:POKE53272,21
100 PRINT"[147]":POKE53280,0:POKE53281,0
110 FORI=1144TO1183:POKEI,102:POKEI+54272,7:NEXTI
120 FORI=1183TO1703STEP40:POKEI,102:POKEI+54272,7:NEXTI
130 FORI=1703TO1664STEP-1:POKEI,102:POKEI+54272,7:NEXTI
140 FORI=1664TO1144STEP-40:POKEI,102:POKEI+54272,7:NEXTI
150 PRINTTAB(9)"[156]THE PARAGRAPH SERIES"
160 PRINTTAB(9)" THE TOPIC SENTENCE [146]"
170 PRINTTAB(18)"A"
180 PRINTTAB(15)"[129]TUTORIAL"
185 FORT=1TO1000:NEXTT
190 PRINTTAB(7)"[158]PRESS RETURN FOR OPTIONS"
195 GOSUB8000
200 GETA$:IFA$=""THEN200
210 IFA$<>CHR$(13)THEN200
220 PRINT"[147]"
221 PRINT""TAB(4)"[152]                             "
222 PRINTTAB(4)"[152]                             "
223 PRINTTAB(4)"[152]                             "
224 PRINTTAB(4)"[152]                             "
225 PRINTTAB(4)"[152]                             "
226 PRINTTAB(4)"[152]                             "
227 PRINTTAB(4)"[152]                             "
228 PRINTTAB(4)"[152]                             "
229 PRINTTAB(4)"[152]                             "
230 PRINTTAB(4)"[152]                             "
231 PRINTTAB(4)"[152]                             "
233 PRINT"":PRINTTAB(14)"[159]OPTIONS"
235 PRINTTAB(5)"[129] F1 [146]=TEACHER INSTRUCTIONS"
240 PRINTTAB(5)"[153] F3 [146]=STUDENT INSTRUCTIONS"
250 PRINTTAB(5)" F5 [146]=TUTORIAL
251 [129]I[178]1[164]500[169]40:A[178]1186[170]I:B[178]1215[170]I
252 [151]A,102:[151]A[170]54272,2:[151]B,102:[151]B[170]54272,2:[130]I
253 [129]I[178]1[164]30:A[178]1186[170]I:B[178]1666[170]I
254 [151]A,102:[151]A[170]54272,2:[151]B,102:[151]B[170]54272,2:[130]I
260 [153]"SYS CHOOSE ONE "
270 [129]T[178]1[164]200:[130]T
280 [153]"SYS CHOOSE ONE "
290 [129]T[178]1[164]200:[130]T
300 [161]A$:[139]A$[178]""[167]260
310 [139]A$[179][177]"INPUT"[175]A$[179][177]"DIM"[175]A$[179][177]"READ"[167]260
320 [139]A$[178]"INPUT"[167][137]400
330 [139]A$[178]"DIM"[167][137]427
340 [139]A$[178]"READ"[167][137]460
400 [153]"LOAD":[153][163]7)"ON TEACHER INSTRUCTIONS "
410 [153]"PRINT#THIS PROGRAM IS DESIGNED TO BE USED IN  CONJUNCTION WITH A ";
415 [153]"COMPOSITION COURSE.ITIS UNDERSTOOD THAT IN ITSELF, THE ";
417 [153]"PRO-  GRAM IS INADEQUATE TO TEACH A STUDENT   HOW TO ACTUALLY WRITE A ";
418 [153]"WELL ORGANIZED, COHERENT PARAGRAPH. THE PROGRAM IS,     HOWEVER,";
419 [153]"A GOOD START."
420 [153]"THERE IS AN OPTIONAL ASSIGNMENT AT THE  END OF THE PROGRAM."
421 [129]T[178]1[164]7000:[130]T:[141]8000
422 [153][163]12)"SYS PRESS RETURN "
423 [161]A$:[139]A$[178]""[167]423
424 [139]A$[179][177][199](13)[167]423
425 [137]220
427 [153]"LOAD":[153][163]8)"ON STUDENT INSTRUCTIONS "
430 [153]"PRINT#THIS PROGRAM IS DESIGNED TO TEACH YOU   HOW TO RECOGNIZE ";
435 [153]"AND USE GOOD TOPIC     SENTENCES."
440 [153]"SINCE THE TOPIC SENTENCE IS THE KEY TO ACOHERENT, WELL ORGANIZED ";
445 [153]"PARAGRAPH, IT  IS ESSENTIAL THAT YOU LEARN TO USE IT   CORRECTLY."
447 [153]"FOLLOW ALL INSTRUCTIONS CAREFULLY AND   TYPE RESPONSES EXACTLY ";
448 [153]"AS THEY APPEAR INTHE SENTENCES."
449 [129]T[178]1[164]7000:[130]T:[141]8000
450 [153][163]11)"SYS PRESS RETURN "
455 [161]A$:[139]A$[178]""[167]455
456 [139]A$[179][177][199](13)[167]455
457 [137]220
460 [153]"LOAD":[151]53272,23:[153][163]12)"ON (null)BJECTIVES "
465 [153]"CONT(null)HE STUDENT WILL BE ABLE TO:
470 PRINTTAB(3)"A)[129][210]ECOGNIZE AND DEFINE A TOPIC            SENTENCE"
475 PRINTTAB(3)"B)[129][201]DENTIFY THE CONTROLLING IDEA"
480 PRINTTAB(3)"C)[129][206]ARROW A TOPIC SUITABLE FOR A           PARAGRAPH"
485 PRINTTAB(3)"D)[129][201]DENTIFY A COHERENT, WELL ORGANIZED     PARAGRAPH"
488 FORT=1TO7000:NEXTT:GOSUB8000
490 PRINTTAB(11)"[158] [208]RESS [210]ETURN "
492 GETA$:IFA$=""THEN492
495 IFA$<>CHR$(13)THEN492
500 PRINT"[147]":PRINTTAB(12)"[145][156] [204]ESSON #1 "
505 PRINT"[150][215]HAT IS A TOPIC SENTENCE?"
510 PRINTTAB(3)"1)[154][212]HE TOPIC SENTENCE[146] IS THE MAIN     SENTENCE OF ";
515 PRINT"THE PARAGRAPH."
520 PRINTTAB(3)"[150]2)[153][212]HE TOPIC SENTENCE[146] GUIDES OR CON-  TROLS THE ";
525 PRINT"PARAGRAPH."
530 PRINTTAB(3)"[150]3)[156][212]HE TOPIC SENTENCE[146] NARROWS[156] THE     TOPIC TO ";
535 PRINT"SUITABLE SIZE FOR DISCUSSION."
540 PRINTTAB(3)"[150]4)[159][212]HE TOPIC SENTENCE[146] LETS THE READER KNOW WHAT ";
545 PRINT"THE PARAGRAPH WILL DISCUSS."
548 FORT=1TO2000:NEXTT
550 PRINT"TOPIC SENTENCE"
552 FORI=1384TO1423:POKEI,121:POKEI+54272,14:FORT=1TO25:NEXTT:NEXTI
555 FORT=1TO2000:NEXTT
560 PRINT"TOPIC SENTENCE"
562 FORI=1544TO1583:POKEI,121:POKEI+54272,13:FORT=1TO25:NEXTT:NEXTI
565 FORT=1TO2000:NEXTT
570 PRINT"TOPIC SENTENCE"
572 FORI=1704TO1743:POKEI,121:POKEI+54272,4:FORT=1TO25:NEXTT:NEXTI
575 FORT=1TO2000:NEXTT
580 PRINT"TOPIC SENTENCE"
582 FORI=1864TO1903:POKEI,121:POKEI+54272,3:FORT=1TO25:NEXTT:NEXTI
583 FORT=1TO700:NEXTT
584 GOSUB8000
585 PRINTTAB(11)"[158] [208]RESS RETURN "
590 GETA$:IFA$=""THEN590
595 IFA$<>CHR$(13)THEN590
600 FORI=1024TO2023:POKEI,32:NEXTI
605 PRINT"[152][215]HAT IS A TOPIC SENTENCE NOT?"
610 PRINTTAB(2)"1)[212]HE TOPIC SENTENCE[146] IS NOT ALWAYS    THE FIRST ";
615 PRINT"SENTENCE IN A PARAGRAPH."
620 PRINTTAB(2)"2)[212]HE TOPIC SENTENCE[146] IS NOT THE SAME  AS THE TITLE ";
625 PRINT"OF THE PARAGRAPH."
630 PRINTTAB(2)"3)[212]HE TOPIC SENTENCE[146] ISN'T A FRAGMENT; IT IS ";
635 PRINT"ALWAYS A COMPLETE SENTENCE."
640 PRINTTAB(2)"4)[212]HE TOPIC SENTENCE[146] IS NOT SEPARATED FROM ";
645 PRINT"THE REST OF THE PARAGRAPH."
669 PRINTTAB(11)"[158] [208]RESS [210]ETURN "
672 GOSUB8000
673 GETA$:IFA$=""THEN673
675 IFA$<>CHR$(13)THEN673
680 PRINT"TOPIC SENTENCE"
682 FORT=1TO2000:NEXTT
684 PRINT"TOPIC SENTENCE"
686 FORT=1TO2000:NEXTT
688 PRINT"TOPIC SENTENCE"
690 FORT=1TO2000:NEXTT
692 PRINT"TOPIC SENTENCE"
693 FORT=1TO2000:NEXTT
694 FORT=1TO500:NEXT:GOSUB8000
695 PRINTTAB(10)"[156]    [208]RESS [198]1    "
700 GETA$:IFA$=""THEN700
705 IFA$<>"[133]"THEN700
710 PRINT"[147]":PRINT"[156] [204]ESSON 1 CONTINUED "
715 PRINT"[152][211]OME OF THE ITEMS BELOW ARE TOPICS AND  SOME ARE TITLES.";
720 PRINT" [206]ONE  IS A  TOPIC      SENTENCE! [211]TUDY THEM "
723 FORCT=1TO6
725 PRINT"CAREFULLY."
727 FORT=1TO300:NEXTT
728 PRINT"[156]CAREFULLY."
730 FORT=1TO300:NEXTT
735 NEXTCT
740 GOSUB5000
745 GOSUB8000
750 PRINTTAB(3)"[145][156] [208]RESS [211]PACE [194]AR [198]OR [193]NALYSIS "
755 GETA$:IFA$=""THEN755
760 IFA$<>CHR$(32)THEN755
765 PRINT" TOPIC "
767 FORT=1TO700:NEXTT
770 PRINT" TITLE "
775 FORT=1TO700:NEXTT
777 PRINT" TOPIC "
780 FORT=1TO700:NEXTT
785 PRINT" TITLE "
790 FORT=1TO700:NEXTT
795 PRINT" TOPIC "
800 FORT=1TO700:NEXTT
805 PRINT" TITLE "
810 FORT=1TO700:NEXTT
815 PRINT" TOPIC "
817 GOSUB8000
820 PRINT"         [158] [208]RESS [210]ETURN [146]              "
825 GETA$:IFA$=""THEN825
830 IFA$<>CHR$(13)THEN825
840 PRINT"[145]":FORCT=1TO920:PRINTCHR$(18);" ";:NEXTCT
850 FORT=1TO500:NEXTT
860 PRINT"":PRINTCHR$(142):GOSUB5000
861 POKE2040,13:FORN=0TO62:READQ:POKE832+N,Q:NEXT
862 V=53248:POKEV+21,1:POKEV+39,7:POKEV+29,1:POKEV+1,100
863 FORJ=0TO347:HY=INT(J/256):LY=J-256*HY
864 POKEV,LY:POKEV+16,HY:NEXT
865 GOSUB5000
866 PRINT"":FORI=1TO360:PRINTCHR$(18);" ";:NEXTI
868 GOSUB8000
870 PRINTTAB(5)"[156] PRESS F1 TO DECODE MESSAGE"
875 GETA$:IFA$=""THEN875
880 IFA$<>"[133]"THEN875
882 FORI=1544TO1583:POKEI,224:POKEI+54272,6:NEXTI
890 PRINTCHR$(14)
892 FORT=1TO2000:NEXTT:GOSUB8000
895 PRINTTAB(4)" [158] [208]RESS [211]PACE [194]AR [212]O [193]CCEPT [146]      "
900 GETA$:IFA$=""THEN900
905 IFA$<>CHR$(32)THEN900
910 PRINT"[147]":PRINT"[145][156] [204]ESSON 1 CONTINUED "
915 PRINT"[152][199][207][207][196]! [206]OW THAT YOU ARE SERIOUS ABOUT    LEARNING ABOUT THE ";
920 PRINT"TOPIC SENTENCE, LET'SLOOK AT A FEW EXAMPLES OF TOPIC SENTEN- CES:"
927 FORT=1TO2000:NEXTT
930 GOSUB5000
940 PRINT"[147]":PRINT" [204]ESSON 1 CONTINUED "
945 PRINT"[152][194]ASICALLY THERE ARE TWO PARTS TO A TOPICSENTENCE.";
950 PRINT"[212]HERE IS THE [156]MAIN STATEMENT[146][152] ANDTHERE IS THE CONTROLLING IDEA[146]."
955 PRINT"[155][212]HE CONTROLLING IDEA[146][155] IS THE MOST IMPOR- TANT PART OF THE ";
960 PRINT"TOPIC SENTENCE,FOR IT  NARROWS OR LIMITS THE RANGE OF THE ";
965 PRINT"DIS- CUSSION AND LETS THE READER KNOW ON WHATSPECIFIC DETAIL(S) ";
970 PRINT"THE WRITER PLANS TO  FOCUS."
975 PRINT"[151][212]HE CONTROLLING IDEA[146][151] MAY CONSIST OF ONE WORD OR IT ";
980 PRINT"MAY BE COMPOSED OF SEVERAL   WORDS."
982 FORT=1TO8000:NEXT:GOSUB8000
985 PRINTTAB(11)"[158] [208]RESS [210]ETURN "
990 GETA$:IFA$=""THEN990
995 IFA$<>CHR$(13)THEN990
1000 PRINT"[147]":PRINT"[145][129] [204]ESSON 1 CONTINUED "
1005 PRINT"[155][204]ET'S EXAMINE THOSE SAME TOPIC SENTENCESAGAIN TO SEE ";
1010 PRINT"WHERE THE CONTROLLING IDEASARE."
1015 RESTORE:FORX=1TO79:READD$:NEXTX:GOSUB5000
1017 GOSUB8000
1020 PRINT"[145][208]RESS [211]PACE [194]AR [212]O [211]EE [195]ONTROLLING [201]DEAS[146]            IN [215]HITE"
1025 GETA$:IFA$=""THEN1025
1030 IFA$<>CHR$(32)THEN1025
1035 FORI=55600TO55614:POKEI,1:FORT=1TO50:NEXTT:NEXTI
1040 FORT=1TO700:NEXTT:FORI=55681TO55716:POKEI,1:FORT=1TO50:NEXTT,I
1045 FORT=1TO700:NEXTT:FORI=55788TO55798:POKEI,1:FORT=1TO50:NEXTT,I
1050 FORT=1TO700:NEXTT:FORI=55917TO55949:POKEI,1:FORT=1TO50:NEXTT,I
1055 FORT=1TO700:NEXTT:FORI=56033TO56052:POKEI,1:FORT=1TO50:NEXTT,I
1057 GOSUB8000
1060 PRINT"[145][145]         [158] [208]RESS [210]ETURN [146]                                        "
1065 GETA$:IFA$=""THEN1065
1070 IFA$<>CHR$(13)THEN1065
1075 PRINT"[147]":PRINT"[145][159] [204]ESSON 1 CONTINUED "
1085 PRINT"[152][204]ET'S EXAMINE THE FIRST  TOPIC SENTENCE IN MORE DETAIL:"
1090 PRINT"  [156][200]ARLEY [211]INKWITCH IS A SLOPPY DRESSER."
1095 PRINT"  [210]ESPOND TO THE FOLLOWING STATEMENTS   ABOUT A POSSIBLE ";
1097 PRINT"PARAGRAPH BASED ON THISTOPIC SENTENCE BY PLACING A (+)[146] ";
1100 PRINT"FOR TRUEAND A (-)[146] FOR FALSE:"
1105 Z=3:GOSUB5100
1108 IFP=3THENGOTO1130
1110 IFP<>3THENPRINT"[147][212]HAT'S NOT GOOD ENOUGH!"
1115 PRINT" [208]LEASE TRY AGAIN "
1120 FORT=1TO2000:NEXTT:RESTORE:FORX=1TO85:READD$:NEXTX:P=0:GOTO1075
1130 PRINT"[147] [212]HAT IS PRETTY GOOD!"TAB(47)"[215]E'LL GO ON NOW..."
1135 FORT=1TO2000:NEXT:PRINT"[147]"
1140 PRINT"[145][156] [204]ESSON 1 CONTINUED "
1145 PRINT"[152][217]OU MUST HAVE GUESSED BY NOW THAT THE   CONTROLLING IDEA[146] ";
1150 PRINT"(SLOPPY DRESSER)[146][156] LIMITSTHE PARAGRAPH'S DISCUSSION TO ";
1155 PRINT"ONLY THOSESPECIFIC DETAILS ABOUT [200]ARLEY'S SLOPPY  APPEARANCE."
1160 PRINT"[159][193]NY OTHER IDEAS WOULD DESTROY THE UNITY[146][159] OR COHERENCE[146][159] ";
1165 PRINT"OF THE PARAGRAPH."
1170 PRINT"[152][193] GOOD WRITER WILL STICK TO THE CONTROL-LING IDEA OF THE ";
1175 PRINT"TOPIC SENTENCE."
1177 FORT=1TO8000:NEXTT:GOSUB8000
1180 PRINTTAB(11)"[158] [208]RESS [210]ETURN "
1185 GETA$:IFA$=""THEN1185
1190 IFA$<>CHR$(13)THEN1185
1200 PRINT"[147][145][154] [204]ESSON 1 CONTINUED "
1205 PRINT"[151][212]YPE IN A (Y)[146][151] IF THE SENTENCE WILL SUIT THE TOPIC ";
1210 PRINT"SENTENCE AND A (N)[146][151] IF IT WILL NOT.";
1212 PRINT"([200]ARLEY IS A SLOPPY DRESSER.)[146]
1215 Z[178]5:[141]5100
1220 [153]"LOADONLESSON 1 CONTINUED "
1225 [153]"POKE    (null)ET'S LOOK AT AN ENTIRE PARAGRAPH   BEGINNING WITH THE ";
1230 [153]"TOPIC SENTENCE WE'VE BEEN STUDYING."
1235 [141]5000
1240 [129]I[178]1664[164]1703:[151]I,160:[151]I[170]54272,5:[130]I
1245 [153]"PRINTSTR$O YOU SEE HOW THE CONTROLLING IDEAWAITPRINT     GUIDES THE ";
1250 [153]"PARAGRAPH?"
1252 [129]T[178]1[164]5000:[130]T:[141]8000
1255 [153][163]11)"SYS (null)RESS (null)ETURN "
1260 [161]A$:[139]A$[178]""[167]1260
1265 [139]A$[179][177][199](13)[167]1260
1270 [153]"LOAD"[163]12)"ON (null)ESSON 2 "
1275 [153]"PRINT#(null)ET'S REVIEW WHAT WE HAVE LEARNED ABOUT THE TOPIC ";
1280 [153]"SENTENCE:"
1285 [153][163]2)"1)(null)HE TOPIC SENTENCE IS ALWAYS A COM- PLETE SENTENCE."
1290 [153][163]2)"2)(null)HE TOPIC SENTENCE, THOUGH USUALLY  THE FIRST ";
1295 [153]"SENTENCE IN THE PARAGRAPH, MAYAPPEAR IN OTHER LOCATIONS."
1300 [153][163]2)"CLR3)ATN TOPIC SENTENCE MUST HAVE A CON-   TROLLING IDEA ";
1305 [153]"WHICH NARROWS OR LIMITS   THE TOPIC OF DISCUSSION."
1310 [153][163]2)"FOR4)(null)HE TOPIC SENTENCE IS NOT SEPARATED FROM THE REST ";
1315 [153]"OF THE PARAGRAPH."
1317 [129]T[178]1[164]8000:[130]T:[141]8000
1320 [153][163]11)"SYS (null)RESS (null)ETURN "
1325 [161]A$:[139]A$[178]""[167]1325
1330 [139]A$[179][177][199](13)[167]1325
1335 [153]"LOADON (null)OPIC (null)ENTENCE LENONTINUED "
1340 [153]"PRINT#(null)KAY! (null)ET'S LOOK AT ANOTHER OF OUR TOPICSENTENCE EXAMPLES.";
1345 [153]"(null)YPE A (Y)WAITPRINT# IF THE SEN-TENCE WILL GO WITH THE CONTROLLING IDEA ";
1350 [153]"AND A (N)WAITPRINT# IF IT WILL NOT FIT."
1355 [153]"(null)Y FRIEND PEEKETH IS A LOT OF FUN TO BE    AROUND."
1360 Z[178]4:[141]5100
1365 [153]"LOADCLR (null)OPIC (null)ENTENCE LENONTINUED "
1370 [153]"PRINT#(null)OW WE WILL EXAMINE A SECOND PARAGRAPH  IN ITS ENTIRETY:"
1375 [153]"   (null)Y FRIEND PEEKETH IS A LOT OF FUN TO BE AROUND.";
1380 [153]"ASCOR ONE THING, SHE ALWAYS SEES   THE BRIGHT SIDE OF LIFE.";
1385 [153]" (null)HE'S ALSO     CREATIVE AND INVENTIVE AND SHE SHOWS US HOW TO HAVE ";
1390 [153]"A GOOD TIME ON LITTLE MONEY.PEEKESIDES THAT, SHE ALWAYS ";
1395 [153]"LOOKS OUT FOR  THE OTHER PERSON. (null)HE CARES ABOUT OTHERSFIRST.";
1400 [153]"RIGHT$T'S NO WONDER PEEKETH IS SO POPULAR WITH EVERYONE AT SCHOOL!"
1402 [129]T[178]1[164]12000:[130]:[141]8000
1405 [153][163]11)"SYS (null)RESS (null)ETURN "
1410 [161]A$:[139]A$[178]""[167]1410
1415 [139]A$[179][177][199](13)[167]1410
1420 [129]I[178]1864[164]1903:[151]I,32:[151]I[170]54272,0:[130]
1425 [129]I[178]1704[164]1743:[151]I,160:[151]I[170]54272,5:[129]T[178]1[164]20:[130]T:[130]I
1426 [129]CT[178]1[164]5
1427 [153]" (null)LEASE (null)OTE "
1428 [129]T[178]1[164]250:[130]T
1429 [153]" (null)LEASE (null)OTE "
1430 [129]T[178]1[164]250:[130]T
1432 [130]CT
1434 [153]"CONTSTR$O YOU SEE HOW EVERY SENTENCE MUST REFERDIRECTLY TO THE ";
1435 [153]"CONTROLLING IDEA OF THE TOPIC SENTENCE?"
1437 [129]T[178]1[164]3000:[130]:[141]8000
1440 [153][163]11)"SYS (null)RESS (null)ETURN "
1445 [161]A$:[139]A$[178]""[167]1445
1450 [139]A$[179][177][199](13)[167]1445
1455 [129]I[178]1744[164]1903:[151]I,32:[151]I[170]54272,0:[130]I
1460 [153]"ONONONONONCLRRIGHT$F THE MAIN SENTENCES DO NOT RELATE TO  THE CONTROLLING ";
1465 [153]"IDEA, THEY DO NOT BELONGIN THE PARAGRAPH!"
1467 [129]T[178]1[164]3000:[130]:[141]8000
1470 [161]A$:[139]A$[178]""[167]1470
1475 [139]A$[179][177][199](13)[167]1470
1480 [129]I[178]1744[164]1903:[151]I,32:[151]I[170]54272,0:[130]I
1485 [153]"ONONONFORATNS YOU CAN SEE HERE, EACH SENTENCE EX-  PLAINS HOW OR WHY ";
1490 [153]"PEEKETH IS FUN TO BE     AROUND."
1492 [129]T[178]1[164]3000:[130]:[141]8000
1495 [161]A$:[139]A$[178]""[167]1495
1500 [139]A$[179][177][199](13)[167]1495
1505 [129]I[178]1744[164]1903:[151]I,32:[151]I[170]54272,0:[130]I
1510 [153]"ONONONRIGHT$T JUST SO HAPPENS THAT THE TOPIC SEN-  TENCE COMES ";
1515 [153]"FIRST IN THIS EXAMPLE.RIGHT$T MAYAPPEAR IN OTHER PLACES AS WELL."
1517 [129]T[178]1[164]3000:[130]:[141]8000
1520 [161]A$:[139]A$[178]""[167]1520
1525 [139]A$[179][177][199](13)[167]1520
1530 [153]"LOAD"[163]14)"ON (null)ESSON 2 "
1535 [153]"           (null)ARROWING THE TOPIC          "
1540 [153][163]3)"PRINT#(null)OW THAT WE KNOW WHAT A TOPIC SEN-      TENCE ";
1545 [153]"IS AND HOW THE CONTROLLING        IDEA GUIDES THE ";
1550 [153]"PARAGRAPH. (null)ET'S SEE    HOW TO NARROW A TOPIC TO ";
1555 [153]"A SUITABLE     LENGTH--IN THIS CASE--PARAGRAPH         LENGTH."
1560 [129]T[178]1[164]4000:[130]T:[153][163]11)"SYS (null)RESS (null)ETURN ":[141]8000
1565 [161]A$:[139]A$[178]""[167]1565
1570 [139]A$[179][177][199](13)[167]1565
1575 [129]I[178]1[164]440 [169]40:A[178]1064[170]I:B[178]1102[170]I:[151]A,160:[151]A[170]54272,6
1576 [151]B,160:[151]B[170]54272,6:[130]I
1577 [129]I[178]1465[164]1503:[151]I,160:[151]I[170]54272,6:[130]
1580 [129]T[178]1[164]3000:[130]:[141]8000
1585 [161]A$:[139]A$[178]""[167]1585
1587 [129]I[178]1864[164]1903:[151]I,160:[151]I[170]54272,0:[130]
1590 [129]I[178]1[164]39:A[178]1544[170]I:B[178]1904[170]I:[151]A,160:[151]A[170]54272,4
1595 [151]B,160:[151]B[170]54272,4:[130]I
1600 [129]I[178]1[164]400[169]40:A[178]1544[170]I:B[178]1582[170]I:[151]A,160:[151]A[170]54272,4
1605 [151]B,160:[151]B[170]54272,4:[130]I
1610 [153][163]3)"ONONONONONCLR(null)E WILL USE THE CONTROLLING IDEA TO"
1620 [153][163]3)"NARROW THE TOPIC SUFFICIENTLY FOR A"
1625 [153][163]3)"SINGLE PARAGRAPH."
1630 [129]T[178]1[164]3000:[130]T:[141]8000
1640 [153][163]12)"SYS (null)RESS (null)ETURN "
1645 [161]A$:[139]A$[178]""[167]1645
1650 [139]A$[179][177][199](13)[167]1645
1655 [153]"LOAD"[163]8)" (null)ARROWING (null)HE (null)OPIC"
1660 [153]"PRINT#   (null)OTICE THAT THE FOLLOWING TOPIC SEN- TENCES MAY INVOLVE ";
1665 [153]"PAPERS OF DIFFERENT  LENGTHS. ATNS YOU EXAMINE EACH SENTENCE, ";
1670 [153]" ASK YOURSELF WHAT SIZE PAPER WOULD FIT  EACH ONE."
1675 [129]T[178]1[164]5000:[130]T:[141]5000
1680 [129]T[178]1[164]6000:[130]:[141]8000
1685 [153][163]4)"DEF (null)RESS (null)PACE PEEKAR ASCOR ATNNALYSIS "
1690 [161]A$:[139]A$[178]""[167]1690
1695 [139]A$[179][177][199](32)[167]1690
1700 [153]"^(SEVERAL PAGES)"
1705 [129]T[178]1[164]1000:[130]T:[153]"^(1TO3 PARAGRAPHS)"
1710 [129]T[178]1[164]1000:[130]T:[153]"^(A BOOK)"
1715 [129]T[178]1[164]1000:[130]T:[153]"^(A SINGLE PARAGRAPH)"
1717 [129]T[178]1[164]4000:[130]T:[141]8000
1720 [153]"           SYS (null)RESS (null)ETURN WAIT            "
1725 [161]A$:[139]A$[178]""[167]1725
1730 [139]A$[179][177][199](13)[167]1725
1740 [153]"LOAD"[163]8)" (null)ARROWING (null)HE (null)OPIC "
1745 [153]"PRINT#(null)EAD EACH TOPIC SENTENCE AND PLACE A (P)WAITPRINT#FOR PARAGRAPH ";
1750 [153]"LENGTH OR AN (M)WAITPRINT# FOR MORE THAN A PARAGRAPH."
1755 Z[178]5:[141]5100
1760 [153]"LOAD"[163]13)"CLR (null)UMMARY "
1765 [153]"(null)OU CAN SEE NOW THAT A GOOD PARAGRAPH   BEGINS WITH A GOOD ";
1770 [153]"TOPIC SENTENCE WHICH CONTAINS A SUFFICIENTLY NARROWED ";
1775 [153]"CON-   TROLLING IDEA."
1780 [153]"FOR(null)OU CAN AS WELL OBSERVE THAT A GOOD     WRITER WILL STICK TO ";
1785 [153]"THE CONTROLLING    IDEA SO THAT THE PARAGRAPH WILL BE CO-  HERENT ";
1790 [153]"OR UNIFIED."
1795 [153]"ASCINALLY, YOU CAN SEE THAT THE BEGINNING WRITER WILL FIND ";
1800 [153]"IT EASIER TO PLACE THE TOPIC SENTENCE AT THE BEGINNING OF ";
1805 [153]"THE  PARAGRAPH."
1810 [153]"OPEN(null)RY TO REMEMBER THESE POINTS THE NEXT   TIME YOU WRITE A PARAGRAPH.";
1815 [153]"(null)HEY COULD   COME IN QUITE HANDY."
1817 [129]T[178]1[164]10000:[130]T:[141]8000
1820 [153][163]11)"SYS (null)RESS (null)ETURN "
1825 [161]A$:[139]A$[178]""[167]1825
1830 [139]A$[179][177][199](13)[167]1825
1831 [153]"LOAD":[153][163]10)" BREAKDOWN "
1832 [153]"YOUR SCORE WAS ";P"WAIT!"
1833 [153]"17 = EXCELLENT/OUTSTANDING"
1834 [153]"CLR16 = VERY GOOD"
1835 [153]"FOR15 = GOOD/ACCEPTABLE"
1836 [153]"CONT14 OR BELOW REQUIRES REVISION"
1837 [153][163]11)"SYS PRESS RETURN "
1838 [161]A$:[139]A$[178]""[167]1838
1839 [139]A$[179][177][199](13)[167]1838
1840 [153]"LOAD":[151]53272,21:[153][163]13)"ON OPTIONS ":[129]T[178]1[164]1000:[130]T
1841 [129]I[178]1081[164]1281[169]40:[151]I,160:[151]I[170]54272,4:[129]T[178]1[164]25:[130]T:[130]I
1842 [129]I[178]1204[164]1282[169]39:[151]I,78:[151]I[170]54272,4:[130]
1843 [129]I[178]1198[164]1280[169]41:[151]I,77:[151]I[170]54272,4:[130]
1844 [129]I[178]1304[164]1343:[151]I,160:[151]I[170]54272,13:[130]I
1845 [129]I[178]1343[164]1743[169]40:[151]I,160:[151]I[170]54272,13:[130]
1850 [129]I[178]1743[164]1704[169][171]1:[151]I,160:[151]I[170]54272,13:[130]
1855 [129]I[178]1704[164]1304[169][171]40:[151]I,160:[151]I[170]54272,13:[130]
1860 [153][163]5)"F1WAIT = REPEAT TUTORIAL"
1865 [153][163]5)"CLRF3WAIT = ASSIGNMENT"
1870 [153][163]5)"FORF5WAIT = QUIT PROGRAM"
1875 [153]"SYS CHOOSE ONE "
1880 [129]T[178]1[164]150:[130]T
1885 [153]"SYS CHOOSE ONE "
1890 [129]T[178]1[164]150:[130]T
1895 [161]A$:[139]A$[178]""[167]1875
1900 [139]A$[179][177]"INPUT"[175]A$[179][177]"DIM"[175]A$[179][177]"READ"[167]1875
1905 [139]A$[178]"INPUT"[167][137]95
1910 [139]A$[178]"DIM"[167][137]2000
1920 [139]A$[178]"READ"[167][153]"LOAD THANK YOU FOR USING THIS PROGRAM!"
1930 [128]
2000 [153]"LOAD"[163]11)"CLR ASSIGNMENT "
2005 [153]"PRINT#1)WRITE OUT THREE TOPIC SENTENCES FOR A   DESCRIPTION OF ";
2010 [153]"YOUR ROOM AT HOME."
2015 [153]"2)CHOOSE ONE OF THOSE TOPIC SENTENCES     AND WRITE A 100-150 ";
2020 [153]"WORD PARAGRAPH."
2025 [153][163]11)"SYS PRESS RETURN "
2030 [161]A$:[139]A$[178]""[167]2030
2035 [139]A$[179][177][199](13)[167]2030
2040 [153]"ONBE SURE TO COPY DOWN THE ASSIGNMENT     BEFORE YOU TURN OFF THE ";
2045 [153]"COMPUTER."
2050 [153]"HAVE A NICE DAY!":[128]
4999 [144]
5000 [135]D$
5010 [139]D$[178]"STOP"[167][137]5050
5015 [139]D$[178]"RETURN"[167][142]
5020 [129]I[178]1[164][195](D$)
5030 [153][202](D$,I,1) ;
5040 [129]T[178]1[164]50:[130]T,I
5045 [153]
5047 [137]5000
5050 [153][163]11)"SYS (null)RESS (null)ETURN "
5052 [141]8000
5055 [161]A$:[139]A$[178]""[167]5055
5060 [139]A$[179][177][199](13)[167]5055
5065 [142]
5100 [129]L[178]1[164]Z
5110 [135]D$,D1$
5120 [153]D$
5130 [133]R$:[139]R$[178]D1$[167][141]7000:[153]"ONLENORRECT!":P[178]P[170]1
5135 [139]R$[179][177]D1$[167][141]7500:[153]"ON(null)RONG! LENORRECT ANSWER=(";D1$")"
5140 [130]L
5143 [153]"(null)OUR TOTAL SCORE="P
5144 [129]T[178]1[164]1000:[130]T:[141]8000
5145 [153][163]11)"SYS (null)RESS (null)ETURN "
5150 [161]A$:[139]A$[178]""[167]5150
5155 [139]A$[179][177][199](13)[167]5150
5160 [142]
6000 [131]"1)LENARS...","CONT2)LEFT$OW (null)O (null)AKE ASCRIENDS...","PRINT3)(null)EBUILDING ENGINES..."
6010 [131]"FOR4)(null)Y PEEKEST ASCRIEND...","5)(null)AKING MONEY..."
6015 [131]"DEF6)(null)UR (null)TRANGE (null)ISITOR...","CLR7)LENATCHING FISH...","STOP"
6020 [131]" MESSAGE NOW COMING IN FROM THE OUTER"
6025 [131]"REACHES OF THE ENGLISH EMPIRE.STANDBY"
6030 [131]"FOR DECODING:","RETURN"
6031 [131]32,0,0,48,0,0,56,0,0,60,0,0,63,0,0,33,0,0,33,248,0,63,255,128
6032 [131]33,248,0,33,0,0,63,0,0,60,0,0,56,0,0,32,0,0,0,0,0,0,0,0,0,0
6033 [131]0,0,0,0,0,0,0,0,0,0,0,0,0
6040 [131]"(null)(null)(null)CLOSELEFT$ATN(null)VALCLOSEPEEKVALVAL(null)CLOSELENLEFT$(null)(null)VAL(null)CLOSE(null)(null)CLOSEVAL(null)PEEKATN(null)(null)CLOSE(null)(null)(null)(null) ATN"
6045 [131]"(null)(null)VALLENRIGHT$ATN(null)CLOSE(null)RIGHT$(null)(null)RIGHT$(null)(null).(null)(null)(null)CLOSE(null)(null)(null)(null)CLOSEASCRIGHT$(null)(null)(null)CLOSE(null)VALATN(null)(null)"
6050 [131]"ONATNPEEK(null)(null)(null)CLOSE(null)LEFT$VALCLOSE(null)(null)(null)RIGHT$LENCLOSE(null)VAL(null)(null)VAL(null)LENVAL.","RETURN"
6055 [131]"1)LEFT$ARLEY (null)INKWITCH IS A SLOPPY DRESSER."
6060 [131]"2)(null)Y BEST FRIEND PEEKETH IS A LOT OF FUN TO  BE AROUND."
6065 [131]"FOR3)(null)HERE ARE FOUR STEPS TO KNOW ABOUT      CHANGING A FLAT TIRE."
6070 [131]"CONT4)RIGHT$ CAN STILL RECALL MY MOST EMBARRAS-    SING MOMENT."
6075 [131]"OPEN5)(null)UR HOUSE IS A (null)ICTORIAN REPLICA.","STOP"
6080 [131]"CONT1)(null)HE PARAGRAPH WOULD BE ALL ABOUT        LEFT$ARLEY.","-"
6085 [131]"2)(null)HE PARAGRAPH MIGHT DISCUSS HIS         APPEARANCE.","+"
6090 [131]"3)(null)HE PARAGRAPH COULD DISCUSS HIS LOVE    FOR DOGS.","-"
6100 [131]"1)LEFT$IS SHIRT IS RARELY BUTTONED PROPERLY.","Y"
6105 [131]"2)LEFT$IS ROOM IS USUALLY UNTIDY","N"
6110 [131]"FOR3)LEFT$ARLEY'S SOCKS ARE NEVER MATED.","Y"
6120 [131]"CLR4)LEFT$IS SHOES HAVE NOT HAD ACQUAINTANCE     WITH POLISH FOR SOME TIME."
6125 [131]"Y","PRINT5)LEFT$ARLEY CANNOT SEEM TO GET TO CLASS ON   TIME.","N"
6150 [131]"  LEFT$ARLEY (null)INKWITCH IS A SLOPPY DRESSER."
6155 [131]"LEFT$IS SHIRT IS RARELY BUTTONED PROPERLY."
6160 [131]"(null)NE PANT LEG USUALLY HANGS DOWN LOWER"
6165 [131] "THAN THE OTHER ONE. LEFT$IS SOCKS ARE RARELY"
6170 [131]"ONMATED. LEFT$IS SHOES HAVE NOT BEEN POLISHED"
6175 [131] "FOR SOME TIME.(null)OOR LEFT$ARLEY IS TRULY A    MESS!","STOP"
6180 [131]"CLR1)(null)HE MAKES EVERYTHING SEEM INTERESTING.","Y"
6185 [131]"2)(null)HE SHOWS US THE HUMOROUS SIDE OF      LIFE.ON","Y"
6190 [131]"OPEN3)PEEKETH IS A VERY TIDY PERSON.","N"
6195 [131]"FOR4)(null)HE IS CAREFUL ABOUT HOW SHE DRESSES.","N"
6200 [131]"CLR1)(null)PORTS CARS CAN BE FUN."
6210 [131]"2)(null)HERE ARE THREE THINGS RIGHT$ LIKE ABOUT     BASKETBALL."
6220 [131]"FOR3)ATNDOLPH LEFT$ITLER WAS AN INTERESTING MAN."
6230 [131]"4)(null)Y BEDROOM WINDOW VIEW REVEALS A        NATURAL WONDERLAND."
6235 [131]"RETURN"
6240 [131]"FOR1)(null)ANDY HAS AN OUTGOING PERSONALITY.","P"
6245 [131]"2)(null)ET'S DISCUSS LIONS.","M"
6250 [131]"CLR3)PEEKABIES REQUIRE SPECIAL TREATMENT.","M"
6255 [131]"OPEN4)(null)OMETIMES PETS SEEM LIKE PEOPLE.","P"
6260 [131]"PRINT5)(null)AISING A BEAR CAN BE QUITE A TASK!","M"
7000 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
7010 [151]S[170]24,15:[151]S[170]5,42:[151]S[170]6,250
7020 [151]S[170]4,33:[151]S[170]1,23:[151]S,181
7030 [129]T[178]1[164]200:[130]:[151]S[170]4,32:[129]T[178]1[164]500:[130]
7040 [142]
7500 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
7510 [151]S[170]24,15:[151]S[170]5,18:[151]S[170]6,242
7520 [151]S[170]4,33:[151]S[170]1,4:[151]S,48
7530 [129]T[178]1[164]300:[130]:[151]S[170]4,32:[129]T[178]1[164]800:[130]
7540 [142]
8000 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
8010 [151]S[170]24,15:[151]S[170]5,42:[151]S[170]6,181
8020 [151]S[170]4,17:[151]S[170]1,20:[151]S,181
8030 [129]T[178]1[164]200:[130]:[151]S[170]4,25:[129]T[178]1[164]200:[130]
8040 [142]